home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / execbase.cpr < prev    next >
Text File  |  1988-11-07  |  3KB  |  64 lines
  1. /* 
  2. Execbase: Dump the exec base information in the following form
  3. SoftVer   0
  4. ChkSums: Library ???  SysBase ???  LowMem ???  Critical ???
  5. ColdCapture $00000000  CoolCapture $00000000  WarmCapture $00000000
  6. SysStkUpper $00C80000  SysStkLower $00C7E800  MaxLocMem   $00080000
  7. DebugEntry  $00FC237E  DebugData   $00000000  AlertData   $00000000
  8. ThisTask    $002478A0  SysFlags        $0000
  9. IdleCount       14183  DispCount       30567
  10. Quantum            16  Elapsed            16
  11. IDNestCnt          -1  TDNestCnt          -1
  12. TrapCode    $00FC2FF0  ExceptCode  $00FC2FF0  ExitCode    $00FC1D28
  13. SigAlloc    $0000FFFF  TrapAlloc       $8000
  14. */
  15. execbase = import("00000004"x,4)
  16.  
  17. softver = c2d(import(offset(execbase,34),2))
  18. 'd "SoftVer  ' softver'"'
  19.  
  20. coldcapt = '$'c2x(import(offset(execbase,42),4))
  21. coolcapt = '$'c2x(import(offset(execbase,46),4))
  22. warmcapt = '$'c2x(import(offset(execbase,50),4))
  23. 'd "ColdCapture' coldcapt ' CoolCapture' coolcapt ' WarmCapture' warmcapt'"'
  24.  
  25. stkupr = '$'c2x(import(offset(execbase,54),4))
  26. stklwr = '$'c2x(import(offset(execbase,58),4))
  27. maxmem = '$'c2x(import(offset(execbase,62),4))
  28. 'd "SysStkUpper' stkupr ' SysStkLower' stklwr ' MaxLocMem  ' maxmem'"'
  29.  
  30. dbgentr = '$'c2x(import(offset(execbase,66),4))
  31. dbgdata = '$'c2x(import(offset(execbase,70),4))
  32. alrtdata = '$'c2x(import(offset(execbase,74),4))
  33. ' d "DebugEntry ' dbgentr ' DebugData  ' dbgdata ' AlertData  ' alrtdata'"'
  34.  
  35. thistask = '$'c2x(import(offset(execbase,276),4))
  36. sysflags = '$'c2x(import(offset(execbase,292),2))
  37. 'd "ThisTask   ' thistask ' SysFlags       ' sysflags'"'
  38.  
  39. idlecnt = right(c2d(import(offset(execbase,280),4)),9)
  40. dispcnt = right(c2d(import(offset(execbase,284),4)),9)
  41. 'd "IdleCount  ' idlecnt ' DispCount  ' dispcnt'"'
  42.  
  43. quantum = right(c2d(import(offset(execbase,288),2)),9)
  44. elapsed = right(c2d(import(offset(execbase,290),2)),9)
  45. 'd "Quantum    ' quantum ' Elapsed    ' elapsed'"'
  46.  
  47. idnest = right(c2d(import(offset(execbase,294),1),1),9)
  48. tdnest = right(c2d(import(offset(execbase,295),1),1),9)
  49. 'd "IDNestCnt  ' idnest ' TDNestCnt  ' tdnest'"'
  50.  
  51. trapcode = '$'c2x(import(offset(execbase,304),4))
  52. excpcode = '$'c2x(import(offset(execbase,308),4))
  53. exitcode = '$'c2x(import(offset(execbase,312),4))
  54. 'd "TrapCode   ' trapcode ' ExceptCode ' excpcode ' ExitCode   ' exitcode'"'
  55.  
  56. sigaloc  = '$'c2x(import(offset(execbase,316),4))
  57. trapaloc = '$'c2x(import(offset(execbase,320),2))
  58. 'd "SigAlloc   ' sigaloc ' TrapAlloc      ' trapaloc'"'
  59.  
  60. attnflg  = '$'c2x(import(offset(execbase,296),2))
  61. attnsch  = '$'c2x(import(offset(execbase,298),2))
  62. lastalrt = '$'c2x(import(offset(execbase,514),4))
  63. 'd "AttnFlags      ' attnflg ' AttnResched    ' attnsch ' LastAlert  ' lastalrt'"'
  64. exit(0)